home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / picticon / source / mod / compare.e < prev    next >
Text File  |  1995-12-22  |  198b  |  10 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC bigger(a,max) IS IF (a<max) THEN max ELSE a
  5. PROC smaller(a,min) IS IF (a>min) THEN min ELSE a
  6. PROC limit(a,min,max)
  7.     IF a<min THEN a:=min
  8.     IF a>max THEN a:=max
  9. ENDPROC a
  10.